home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Bits and Bytes Volume 10, No. 02 (1988-10)(Apple Computing Enjoyment Society)(Side A).zip / Bits and Bytes Volume 10, No. 02 (1988-10)(Apple Computing Enjoyment Society)(Side A).po / ACES.1.7.txt < prev    next >
Text File  |  1996-12-24  |  3KB  |  117 lines
  1.               TRY  THIS
  2.  
  3.  
  4. This section of BITS & BYTES will offer
  5. simple public domain basic programs
  6. which you can key in yourself, thus
  7. giving you workable productions plus
  8. experience in entering your own code.
  9.  
  10. We'll start with a display program
  11. which will generate colorful patterns
  12. in a random fashion.  Check each line
  13. as you key it in; if you make an error,
  14. merely repeat the line number and do it
  15. over again.  The error line will be 
  16. replaced. Print out this chapter and
  17. enter the code at your leisure after 
  18. finishing this newsletter.
  19.  
  20. 10 HOME
  21. 20 REM: MOIRE DISPLAY
  22. 50 IMPUT A$
  23. 100 HGR2
  24. 110 HCOLOR=0: HPLOT 0,0
  25. 120 CALL 62454
  26. 130 C(0) = INT (RND (1) * 8): C (1) =
  27.  INT (RND (1) * 8): IF ((C(0) = 0 AND C
  28.  (1) = 4) OR (C(1) = 0 AND C(0) = 4))
  29.  THEN 130
  30. 140 A = RND (1) * 279
  31. 160 B = RND (1) * 191
  32. 180 I% = (RND (1) * 4) + 2
  33. 220 FOR X = 0 TO 278 STEP I%
  34. 240 FOR S = 0 TO 1
  35. 260 HCOLOR = C(S)
  36. 300 HPLOT X + S,O TO A,B TO 279 - X
  37.  - S,191
  38. 310 IF PEEK ( - 16384) > 127 THEN 31111
  39. 320 NEXT S,X
  40. 340 FOR Y = 0 TO 191 STEP I%
  41. 360 FOR S = 0 TO 1
  42. 380 HCOLOR = C (S)
  43. 420 HPLOT 279,Y + S TO A,B TO 0,191
  44.  - Y - S
  45. 430 IF PEEK ( -16384) > 127 THEN 31111
  46. 440 NEXT S,Y
  47. 460 FOR P = 1 TO 1500: NEXT P
  48. 480 GOTO 120
  49. 31111 TEXT
  50. 31112 POKE - 16368,0
  51. 31115 TEXT : HOME : PRINT : PRINT :
  52. PRINT "BYE.....":END
  53.  
  54. **************************************
  55.  
  56. For you LOTTO fans:  a program to select
  57. six numbers for you to try.  Contributed
  58. by Julian Rozner, he admits this will,
  59. however, show a Zero and may repeat a
  60. number in the display of six. He  
  61. challenges a programmer out there to
  62. correct the two "glitches" and send us 
  63. the revision to print! 
  64.  
  65. 10 FOR I = 1 TO 6
  66. 20 LET N = INT (50 * RND (1))
  67. 30 PRINT N
  68. 40 NEXT I
  69. 50 END
  70.  
  71. Can we split the winnings as a result 
  72. of these numbers??????
  73.  
  74. **************************************
  75.  
  76. Another cutey!  This is a two-liner. No
  77. screen display on this one, but play
  78. the keyboard organ by command RUN after
  79. you've finished keying it in.
  80.  
  81. 10 TEXT : HOME : PRINT TAB (13) ;
  82.  "KEYBOARD ORGAN": FOR X = 24576 TO
  83.  24591: READ Y: POKE X,Y: NEXT X: DATA
  84.  172,0,192,173,48,192,234,234,234,234,
  85.  136,208,249,76,0,96
  86. 20 CALL 24576
  87.  
  88. **************************************
  89.  
  90. This one is directed to those users
  91. who have Appleworks on 3.5" disks.
  92. Here's a patch that will bring you
  93. straight to the Main Menu.  This patch 
  94. will load the start-up with no space or
  95. return needed until you reach the choice
  96. of "ADD FILES TO THE DESKTOP".
  97.  
  98. From Basic, enter the following (on a
  99. backup copy, of course):
  100.  
  101. BLOAD APLWORKS SYSTEM, TSYS,A$2000
  102. POKE 14468,44
  103. POKE 14148,208
  104. POKE 14149,19
  105. BSAVE APLWORKS.SYSTEM,TSYS,A$2000
  106.  
  107. ***********************************
  108.  
  109. If you have a favorite simple basic
  110. program you'd like to share, please
  111. upload it as indicated under menu item
  112. "HOW TO SUBMIT ARTICLES." If you lack a
  113. modem, sending a hard copy of your 
  114. material to me would be perfectly fine.
  115.  
  116. ~~~
  117.